home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR06 / MMAZE10.ZIP / MAZE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-08-28  |  2KB  |  168 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     STRING005 = PPEPath() + PPEName() + ".CFG"
  37.     If (Exist(STRING005)) Then
  38.         FOpen 1, STRING005, 0, 2
  39.         FGet 1, STRING006
  40.         FGet 1, STRING007
  41.         FClose 1
  42.     Else
  43.         Goto LABEL003
  44.     Endif
  45.     Cls
  46.     STRING003 = STRING007 + "\INTRO"
  47.     If (Exist(STRING003)) DispFile STRING003, 1
  48.     Delay 75
  49.     Cls
  50.     PrintLn 
  51.     PrintLn 
  52.     STRING009 = "@X0DWelcome to " + STRING006
  53.     INTEGER001 = Len(STRING009) / 2 + 40
  54.     PrintLn Right(STRING009, INTEGER001)
  55.     Delay 75
  56.     Cls
  57.     STRING002 = "000"
  58.     :LABEL001
  59.     Gosub LABEL006
  60.     FOpen 1, STRING003, 0, 0
  61.     FGet 1, STRING010
  62.     FGet 1, STRING012
  63.     FGet 1, STRING011
  64.     FGet 1, STRING013
  65.     FGet 1, STRING001
  66.     FClose 1
  67.     Cls
  68.     DispFile STRING004, 7
  69.     If (STRING001 == "FINAL") Goto LABEL004
  70.     :LABEL002
  71.     InputStr "Direction? ", STRING008, 14, 1, "NESWQ", 8
  72.     Select Case (STRING008)
  73.         Case "N"
  74.             STRING002 = STRING010
  75.         Case "E"
  76.             STRING002 = STRING012
  77.         Case "W"
  78.             STRING002 = STRING013
  79.         Case "S"
  80.             STRING002 = STRING011
  81.         Case "Q"
  82.             Goto LABEL005
  83.         Case Else
  84.             Goto LABEL002
  85.     End Select
  86.     Goto LABEL001
  87.     :LABEL003
  88.     PrintLn "Error... No configuration file found."
  89.     Wait
  90.     Goto LABEL007
  91.     :LABEL004
  92.     Delay 100
  93.     STRING003 = STRING007 + "\FINAL"
  94.     If (Exist(STRING003)) Then
  95.         DispFile STRING003, 1
  96.     Else
  97.         Print "Congratulations...You have completed the "
  98.         PrintLn STRING006
  99.     Endif
  100.     Goto LABEL007
  101.     :LABEL005
  102.     STRING003 = STRING007 + "\QUIT"
  103.     If (Exist(STRING003)) Then
  104.         DispFile STRING003, 1
  105.     Else
  106.         PrintLn "Quitting..."
  107.     Endif
  108.     Goto LABEL007
  109.     :LABEL006
  110.     STRING003 = STRING007 + "\" + STRING002
  111.     STRING004 = STRING007 + "\D" + STRING002
  112.     Return
  113.     :LABEL007
  114.     End
  115.  
  116. ;------------------------------------------------------------------------------
  117. ;
  118. ; Usage report (before postprocessing)
  119. ;
  120. ; ■ Statements used :
  121. ;
  122. ;    1       End
  123. ;    4       Cls
  124. ;    1       Wait
  125. ;    24      Goto 
  126. ;    13      Let 
  127. ;    1       Print 
  128. ;    6       PrintLn 
  129. ;    10      If 
  130. ;    4       DispFile 
  131. ;    2       FOpen 
  132. ;    2       FClose 
  133. ;    7       FGet 
  134. ;    1       InputStr 
  135. ;    1       Gosub 
  136. ;    1       Return
  137. ;    3       Delay 
  138. ;
  139. ;
  140. ; ■ Functions used :
  141. ;
  142. ;    1       /
  143. ;    11      +
  144. ;    6       ==
  145. ;    8       !
  146. ;    1       Len(
  147. ;    1       Right()
  148. ;    1       PPEPath()
  149. ;    4       Exist()
  150. ;    1       PPEName()
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Analysis flags : No flag
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Postprocessing report
  159. ;
  160. ;    0       For/Next
  161. ;    0       While/EndWhile
  162. ;    3       If/Then or If/Then/Else
  163. ;    1       Select Case
  164. ;
  165. ;------------------------------------------------------------------------------
  166. ;                 AEGiS Corp - Break the routines, code against the machines!
  167. ;------------------------------------------------------------------------------
  168.